home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Graphics, changing desktop wallpaper instantly < prev    next >
Encoding:
Text File  |  1997-07-13  |  510 b   |  12 lines
  1. 'Description: Changes desktop wallpaper instantly without having to reboot 
  2.  
  3. 'Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
  4. 'Public Const SPI_SETDESKWALLPAPER = 20
  5.  
  6. 'Place the following code in under a command button or in a menu, etc...
  7.  
  8. Dim ChangeWP
  9. dim source
  10. source = "C:\windows\setup.bmp"
  11. ChangeWP = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, source, 0)
  12.